Night Owl 6

home *** CD-ROM | disk | FTP | other *** search

/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 019a / amac40.zip / FILE25.QM < prev next >

Wrap

Text File | 1991-07-10 | 59KB | 1,276 lines

* (FILE25).QM July 10, 1991 * Written by Tom Hogshead * With Macro Contributions By Richard Blackburn * ┌───────────────────────── (INDEX) FileManager Macros ─────────────────────┐ * │ * │@(9) EDIT file from "RingList" <chg * │@(0) EDIT file from "RingList" if new files have been loaded <chg * │ * │@(7) LOAD all files in "Ring" <chg * │@(1) LOAD file from sorted list * │@(4) LOAD file from "PickList", wild cards OK * │@(5) LOAD file whose name is at the cursor * │ * │@(6) re-LOAD current file from disk copy * │ * │@(3) DELETE file from sorted list * │ * │@(2) READ macfile & LOAD it's txtfile from sorted list * │ * │@(8) READ macfile of txtfile that is loaded * │ * │@(F7) READ macfile & LOAD it's txtfile from txtfile list * │ * │@(F8) READ macfile from macfile list, txtfile is not loaded * │ * │@(F1) SAVE file with name "Mos_Day_Hour_Min.Ext" * │ * │@(F2) SAVE file with name "CurrentFileName.Mos_Day" * │ * │@(F3) SAVE Read-Only files * │ * │@(F4) EXECUTE Dos command from List * │@(F5) EXECUTE Dos command from List/ with CurrentFileName * │ * │@(F6) Makes a DIR list of filenames in conventional "8.3" format, <chg * │ NO SPACES, with date and time, like this: * │ FILE25.QM 64795 6-23-91 4:12a * │ (See RINGxx.QM for this macro) * │ * │^(F1__) Position cursor in column at top of paragraph (R. Blackburn) * │^(F2__) Position cursor in column at top of paragraph * │^(F3__) Position cursor in column at bottom of paragraph * │ * │@(f) Execute DOS command without full path name * │ * │#(F3_) Spell Check WITH backup, qconfig.dat backups ON or OFF * │#(F4_) Spell Check WITHOUT backup, qconfig.dat backups ON or OFF * │ * │#(F5_) SAVE file WITHOUT backup, qconfig.dat backups ON * │#(F6_) SAVE file WITHOUT backup, qconfig.dat backups ON or OFF * │ * │#(F7_) DELETE CurrentFileName backup * │#(F8_) EDIT CurrentFileName backup * │ * │@(PgUp) Page Up by paragraphs, modified "Page Up" * │@(PgDn) Page Down by paragraphs, modified "Page Dn" * │ * │^(w_) Scroll UP cursor bar stays fixed * │@(w) Scroll UP two windows in sync * │ * │^(z_) Scroll DOWN cursor bar stays fixed * │@(z) Scroll DOWN two windows in sync * │ * │@(o) Alternate ChangeFileName, current name in prompt box for edit * │@(h) Select Index item with cursor line, then <enter>. * │@(q) QUIT all files in "Ring" * │ * │(Index) How to locate macro or item below from Index using @h * │(Description) * │(Startup) * │(Macros) * │(Other) Macros * │(REQUIRED) PROGRAM FILES * │(Version) history * └─────[ be sure to leave at least one blank line at end of Index ]────────┘ * (Index) Use; * * To locate a macro or item in this file, press @h, place the cursor * line on the desired item in the Index above, and press <enter>. * See BOOKxx.QM for more details. * (Description): * (FILE25).QM QEdit macros allow the user to select files from a list * to: either load a file, read a macfile, delete a file, read a macfile * of loaded txtfile, save a read-only file, or save files with the name * either 09141025.EXT or file NAME.914. File sorting is done using DX * Directory Extender, not included with these files. Spell check macros * with ShareSpell. Cursor position and scroll macros. * File sorting is done using DX Directory Extender, v2.11. If the newer * version 2.60 is used and it is NOT registered, the DX heading will * show in the file selection window of @1 to @5 and the initial cursor * line will not be positioned on the first files in the selection list. * The file selection can be still be made by moving the cursor line to * the desired file and pressing <enter>. Alternatively, you can either * register DX or change the macros. I suggest registration. DX is the * most powerful DOS file and directory manager available. * For (other) macros, see ALLMACRO.INF * These macros require "QEdit and QMAC v2.1, February, 1990" or later. * (Startup): See also FILE.DOC for requirements. * * To BEGIN, just type "START FILE" <Enter>. All pertinent files will be * loaded in the "Ring" for viewing, and FILE25.MAC is read. * Alternatively, type "START FILE 0" <Enter> and the disk copies of all * files in the "Ring" will be loaded ready for editing, saving time. * (REQUIRED) PROGRAM FILES * * You──MUST──have the exectable program files in AMAC-PRG.ZIP to run * some of these macros. AMAC-PRG.ZIP can be found on the following BBS's: * * SemWare * Exec-PC * * It can not be found on CompuServe since many of the programs are * Copyrighted. All program files are ShareWare, and inclusion in * AMAC-PRG.ZIP is not prohibited in their documentation. * * I thank the authors for these excellent programs. *------------------(Macros):------------------- * * In response to a request by Stephan Donelian, Richard Blackburn of * SemWare wrote ^1, which prompted me to modify it slightly to ^2. * * ╒══>Quoting STEPHAN from Date: 03-19-91 (23:10) * │ * │I would like to be able to go to the beginning line * │of the paragraph and at the *same* column as the * │current column. Any ideas? * ╘══════════════════════════════════════════════════ * * ------------------------------------------------------------------ * ^(F1__) Position cursor in column at top of paragraph (R. Blackburn) * ------------------------------------------------------------------ * ^F1 macrobegin MarkCharacter * save our place PrevPara * goto start of paragraph MarkCharacter * make it a block GotoBlockEnd * go back to our place MarkLine * and convert to line block * this is because GotoBlockBeg * block begin on a line block is * just the top of the block * at whatever block you are in UnMarkBlock * un mark the block * * 11 bytes Thu 03-21-1991 19:23:29 * Here's an alternate version. I was not aware that the block begin on * a line block is just the top of the block, but now knowing that * Richard Blackburn's ^1 can be shortened one byte. Except for screen * position, both do the same thing. Richard had the neat idea that got * me thinking! * * ------------------------------------------------------------------ *^(F2__) Position cursor in column at top of paragraph * ------------------------------------------------------------------ * ^F2 Macrobegin MarkLine * save our place PrevPara * goto start of paragraph MarkLine * make it a block PrevPosition * go back to where we started GotoBlockBeg * block begin on a line block is * just the top of the block * at whatever block you are in UnMarkBlock * un mark the block * * 10 bytes Thu 03-21-1991 19:23:40 * * ------------------------------------------------------------------ *^(F3__) Position cursor in column at bottom of paragraph * ------------------------------------------------------------------ * ^F3 Macrobegin MarkLine * save our place EndPara * goto end of paragraph MarkLine * make it a block PrevPosition * go back to where we started GotoBlockEnd * block end on a line block is * just the bottom of the block * at whatever block you are in UnMarkBlock * un mark the block * * 10 bytes Sun 03-24-1991 22:51:35 * * --------------------------------------------------------------------- * ^(F4__) Put colon in front of rem line for faster batch file operation * --------------------------------------------------------------------- * * "Rem" lines in batch files make batch files run slower. Lines which * are labels (colon as first character) do not. This macro simply puts * a colon in column 1 for each line containing "rem ". Each rem line * for my system takes about 0.2 seconds with disk cache, and 0.5 seconds * per line with no disk cache. I found one batch file with 30 plus * rem lines - 6 to 15 seconds less running time by labelling rem lines! * * NOTE: At least a space and one character of text must follow "rem" * to be labelled, eg the following would not be labeled: * rem * echo remember * The following would be labeled: * rem this is a test * echo harem holiday! * * ^F4 MacroBegin * Begfile InsertLine * Insert blank line in case * rem in col/line 1/1 Editfile "c:\!" Return * Load temp file KillFile Quit * To kill/quit it EditFile Return * Load empty temp file and SaveFile * save it for append later Quit * Quit it for now START: * Unmarkblock * Find "rem " Return "I " Return * Find "rem " Jfalse END: * No rem lines, end macro BegLine *ELSE line has rem, go to bol Dropanchor Wordright Dropanchor * Mark space up to "rem" Shiftright * Shift line rt one space Begline * Bak to bol Find ":" Return "L" Return * See if line has colon at beg Jtrue NEXT: * Cursorright ":" *ELSE line has no colon, add it! NEXT: * Shiftleft * Shift line back lft one space Markline * WriteBlock Return "A" * Append line to c:\! Endline Cursordown * Move off rem and chk for last Jfalse END: * line Cursorup *ELSE Line is not last, cur up Jump START: * Loop again END: * Begfile * Begin of batch file DelLine * Delete top blank line Editfile Return * Load c:\!, look at rem lines DelLine KillFile * with added colon, kill file UnMarkBlock * Un mark batch file * * 82 bytes Mon 03-25-1991 16:49:26 * * ---------------------------------------------------------------------- * ^(F6__) Directory sizes sorted by size * ---------------------------------------------------------------------- * * This macro must ONLY be run as autoexecute macro with dsiz.bat. * See dsiz.qm for macro, and dsiz.bat for other instructions. * * Here's the output of dsiz.bat on my E: drive . . . * * Volume [E:Mininscrb_1] created: 91-Apr-02 19:15:24; * * Directory of [e:\up\] 1,443,775 bytes in 263 files * Directory of [e:\com\] 840,087 bytes in 111 files * Directory of [e:\disk\] 671,114 bytes in 9 files * . . * . . * . . * Directory of [e:\new-ware\] 1,562 bytes in 4 files * Directory of [e:\bat\legal\] 735 bytes in 1 file * 5,891,643 bytes in 969 files. 7,157,760 bytes allocated (18% slack). * *┌──────────────────────────────────────────────────────────────────┐ *│@(1) Selects file to LOAD from sorted list of files in directory │ *└──────────────────────────────────────────────────────────────────┘ * @1 Macrobegin altwordset * For all file names EditFile "file.srt" return * Load sort list pause * Select sort type copy * Copy line to scrap quit * Quit file.srt DOS "file-DX " * Make/sort file list paste return return * EditFile "c:!" return * Load sorted file list cursordown insertline * cursordown * Get to first file name line pause * Pause to select file begline wordright * Put cursor on file name markword copy * Mark/copy file name killfile quit * Kill/quit c:! EditFile paste return * Load file defaultwordset * Reset default * * 68 bytes Sun 09-09-1990 14:38:25 * *┌─────────────────────────────────────────────────────────────────────┐ *│@(2) LOAD txtfile/READ macfile from sorted list of files in directory│ *└─────────────────────────────────────────────────────────────────────┘ * @2 Macrobegin altwordset * For all file names DOS "file-DX mac d-" * Sort macfiles by date return return * EditFile "c:!" return * Load sorted file list cursordown insertline * cursordown * Get to first file name line pause * Pause to select begline * Re-position cursor if moved find "." return return * Select it and get to dot CursorRight delrtword CursorLeft* Delete extension markword copy * Mark/copy file name - no ext killfile quit * Kill/quit c:! EditFile paste "qm" return * Load txtfile defaultwordset * Reset default macroread paste "mac" return * Read macfile * * 78 bytes Sun 09-09-1990 14:38:29 * *┌──────────────────────────────────────────────────────────────────┐ *│@(3) Selects file to DELETE from sorted list of files in directory│ *└──────────────────────────────────────────────────────────────────┘ * * Be careful to select ONLY the file you want deleted. * @3 Macrobegin altwordset * For all file names EditFile "file.srt" return * Load sort list pause * Pause to select sort markline copy paste * Paste selected line begline markword * Mark file ext quit * Quit file.srt DOS "file-DX " * Make/sort file list paste return return * EditFile "c:!" return * Load sorted file list cursordown insertline * cursordown * Get to first file name line pause * Pause to select file begline wordright * Put cursor on file name markword copy * Select it insertline * Insert line in c:! paste * Paste file name copy * Copy file name to scrap DOS "del " paste return return * Delete select file killfile quit * Kill/quit c:! defaultwordset * Reset default * * 84 bytes Sun 09-09-1990 14:38:34 * *┌─────────────────────────────┐ *│@(4) Load Files From PickList│ *└─────────────────────────────┘ * * To run, just press Alt and 4 at the same time. At the prompt "File=", * enter a [file name(s)] and [file sort option] to make a PickList * using the following syntax: * * [file name(s)] [file sort option] <enter> * * where [file sort option] is either "esda". * * For example, when entering: * * c*.* s- (space must be included between name/sort option!) * * a file to load can be selected from a PickList of all files in * the current directory beginning with the letter "c" sorted by size, * largest first. Entering file name(s) WITHOUT a sort option, makes * a PickList sorted by name an then extension. * * This macro can sort files in any order. The following information is * from the file DX.DOC for Directory Extender. Please read this * document for more information on using the excellent program DX. * * Sorting is by name by default. The /SOrt switch without a value sorts * by name and then extension in ascending order. The sorting * criteria consists of: "N" for name, "E" for extension, "S" for size, * "D" for date/time, "A" for attribute. Specifying a letter by itself * or with a '+' suffix indicates ascending order; specifying a '-' * suffix indicates descending order. * * Examples of the sort options are: * * [filename(s)] ne => sort by name and extension * * [filename(s)] e-n- => sort files descending by * extension first and then by * descending name * * [filename(s)] snd- => sort files by ascending size, * ascending name, and then * descending date * @4 Macrobegin unmarkblock altwordset * For all file names begline insertline * Insert temp line "File=" * endline markcolumn * Start mark pause * File name?, wild cards OK markcolumn copy * Mark/copy file name to scrap delline * Delete temp line DOS "PICK " paste * Make PickList return return * EditFile "c:!" return * Load list cursordown insertline * cursordown * Get to first file name line pause * Pause to select file begline wordright * Put cursor on file name markword copy * Mark/copy selection to scrap killfile quit * Kill/quit c:! EditFile paste return * Load file selected defaultwordset * Reset default * * 60 bytes Sun 09-09-1990 14:38:38 * * ┌──────────────────────────────────────────────┐ * │@(5) LOADS a file whose name is at the cursor│ * └──────────────────────────────────────────────┘ * This picks up a file name that is sitting at the cursor position in the * editor, and loads it into another buffer (From SemWare BBS). * @5 Macrobegin * altwordset * For all file names markword * Mark file name copy * Copy to scrap EditFile * Load it paste return * defaultwordset * * * 11 bytes Sun 09-09-1990 14:38:43 * * ┌───────────────────────────────────────┐ * │@(6) Reloads current file from disk │ * └───────────────────────────────────────┘ * @6 Macrobegin SplitLine EditFile CurrentFileName Return NewFile "N" Return * * 12 bytes Fri 08-10-1990 15:24:13 * * ┌────────────────────────────────────────────────────────┐ * │@(7) Load all files in "Ring" │ * └────────────────────────────────────────────────────────┘ * * This macro is handy if you want to quickly load all files in the * ring. QEdit has the advantage that the EditFile, just like the QEdit * command line, can accept multiple file names together, separated by * spaces. Wild card file specification is also possible. The end result * is that files can be entered in QEdit's "ring" *without* actually * loading. Qedit defers loading files in the ring until you either * EditFile or NextFile into the file. This macro simply automatically * "loads" all files in the "Ring" by NextFiling through all files. If * your hard drive is slow (like mine), you'll appreciate the time * this macro saves. Run this macro twice to see the difference. * If a file is set "read-only", press <Esc>, and run the macro until * all files are loaded. The technique using the NUL file as a place * marker was written by Kyle Watkins of SemWare and is used here with a * slight modification. * * See also QLSTxx.QM for using this macro to load files from a * FileList. * @7 Macrobegin EditFile 'NUL' Return * Insert -or- GoTo NUL File |2.5 Begline CursorRight * Put cursor in Col. 2 of NUL File LOOP: * Main test loop Nextfile * Move to next files in Ring CursorLeft * Move cursor left (need for NUL test) Jfalse LOOP: * If couldn't move to left, it's not * the NUL File AND cursor position * has not changed -- LOOP again *ELSE * Check to see if in the NUL File CursorLeft * Move cursor left for NUL Test Jfalse END: * If couldn't move left -- We * ARE in the NUL File and Need * to END the Macro *ELSE CursorRight * Move back to Col. 2 in NUL File END: * Macro is DONE Quit * Quit the NUL File * * 21 bytes Tue 10-30-1990 20:05:53 * 25 bytes Tue 05-14-1991 17:35:54 changed ! to NUL, faster * *┌─────────────────────────────────────────────┐ *│@(8) Reads macfile of txtfile that is loaded │ *└─────────────────────────────────────────────┘ * * From MACRxx.QM * @8 Macrobegin macroread CurrentFileName backspace backspace "mac" return * * 15 bytes Sun 09-09-1990 14:38:55 * * ┌────────────────────────────────────────────────────────────────────┐ * │@(9) Make RingList, Load all files in ring, select file to edit │ * └────────────────────────────────────────────────────────────────────┘ * * Does not make NEW RingList if already made. * Both @9 and @0 have the disadvantage that each files in the ring is * loaded and modified while getting each FileName to scratch to make * the RingList. All files in the ring can be QUIT using @q macro. * @9 Macrobegin prevfile unmarkblock * Move to prevfile so file being * edited is first files in RingList EditFile "NUL" return * Load/Edit RingList file |2.5 endline begline * If NUL is already made, it has text jtrue GETFILE: * then GoTo GETFILE *ELSE dropanchor * storescrbuff "1" return * Clear scratch buffer Begline CursorRight * Put cursor in Col. 2 for StopFile LOOP: * Main test loop Nextfile * Move to next files in Ring splitline dropanchor * CurrentFileName * appendscrbuff "1" return* Append filename to scratch buffer cut * Delete block CursorLeft * Move cursor left * (need for StopFile test) Jfalse DOIT: * If couldn't move to left, cursor * must be in Col. 1 and it's not * the StopFile -- GO with DOIT *ELSE * Check to see if in the StopFile File CursorLeft * Move cursor left for StopFile Test Jfalse RINGLIST: * If couldn't move left again -- We * ARE in the StopFile File and Need * to GO to RINGLIST *ELSE CursorRight * Restore Cursor to its previous * position and GO with the DOIT DOIT: * DOIT Loop Jump LOOP: * Return to the Main Loop RINGLIST: * Get RingList into file EditFile return * Load RingList file getscrbuff "1" return * Put RingList in it delline unmarkblock * Delete top line and unmark file GETFILE: * pause copy * Pause and select file to edit EditFile paste return * and then begin editing it * * 58 bytes Mon 10-01-1990 10:56:15 * 60 bytes Tue 05-14-1991 17:17:29 changed ! to NUL, faster * * ┌────────────────────────────────────────────────────────────────────┐ * │@(0) Make RingList, Load all files in ring, select file to edit │ * └────────────────────────────────────────────────────────────────────┘ * * Makes NEW RingList even if already made. * Both @9 and @0 have the disadvantage that each files in the ring is * loaded and modified while getting each FileName to scratch to make * the RingList. All files in the ring can be QUIT using @q macro. * @0 Macrobegin prevfile unmarkblock * Move to prevfile so file being dropanchor * edited is first files in RingList storescrbuff "1" return * Clear scratch buffer Begline CursorRight * Put cursor in Col. 2 for StopFile LOOP: * Main test loop Nextfile * Move to next files in Ring splitline dropanchor * CurrentFileName * appendscrbuff "1" return* Append filename to scratch buffer cut * Delete block CursorLeft * Move cursor left * (need for StopFile test) Jfalse DOIT: * If couldn't move to left, cursor * must be in Col. 1 and it's not * the StopFile -- GO with DOIT *ELSE * Check to see if in the StopFile File CursorLeft * Move cursor left for StopFile Test Jfalse RINGLIST: * If couldn't move left again -- We * ARE in the StopFile File and Need * to GO to RINGLIST *ELSE CursorRight * Restore Cursor to its previous * position and GO with the DOIT DOIT: * DOIT Loop Jump LOOP: * Return to the Main Loop RINGLIST: * Get RingList into file EditFile "NUL" return * Load RingList file |2.5 getscrbuff "1" return * Put RingList in it delline unmarkblock * Delete top line and unmark file GETFILE: * pause copy * Pause and select file to edit Quit * Quit the RingList File EditFile paste return * and then begin editing it * * 50 bytes Mon 10-01-1990 11:02:09 * 54 bytes Tue 05-14-1991 17:17:52 changed ! to NUL, faster * * ┌─────────────────────────────────────────────────┐ * │@(F1) Saves file with name "Mos_Day_Hour_Min.Ext"│ * └─────────────────────────────────────────────────┘ * * This macro saves the current file with the name as * "Mos_Day_Hour_Min.Ext". For example, @F1 saves this file as * 08191025.QM when date and time are Sun 08-19-1990 10:25:00. * * Insert must be ON. * * Thanks to Jim Wright for the neat idea how to condense date and time * with his macro in QE-MEM.ZIP. Like many other macro ideas from * others, they often seem so simple once we see and understand them * that we say "why didn't I think of that" - but I didn't ! @F1 Macrobegin *************************************** TOGGLE INSERT ON************* insertline * Insert test line "a" CursorLeft "a" * Insert "aa" endline * If not at endline-insert is on Jtrue FIN: * If at endline -insert is off toggleinsert * Toggle ON if off FIN: * delline * Delete test line *************************************** CONDENSE DATE & TIME ******* unmarkblock * Begin no marked block insertline begline * Insert line insertdate inserttime * Get date & time to condense markline delltword delltword * Delete seconds backspace * Delete : CursorLeft CursorLeft * Keep minutes backspace * Delete : CursorLeft CursorLeft * Keep hour delltword delltword * Delete spaces and year backspace * Delete - CursorLeft CursorLeft * Keep day backspace * Delete - CursorLeft CursorLeft * Keep month delltword delltword * Delete spaces & day name endline * Go to end of condensed number CurrentFileName * Get CurrentFileName find "." return "LB" return * Move to begin of extension jtrue HASEXT: * If dot found, file has extn. * and go to HASEXT *ELSE Endline "." CursorLeft * Add ".", file has NO extn. HASEXT: * unmarkblock * unmark line CursorLeft markcolumn * Move off dot and mark it find ":" return "b" return * Move to : CursorLeft deleteblock * Del all but .ext of file name cut * Get number.ext to scrap writeblock paste return * Save number.ext * * 74 bytes Wed 02-13-1991 23:16:45 * * ┌────────────────────────────────────────────────────────┐ * │@(F2) Saves file with name "CurrentFileName.Mos_Day" │ * └────────────────────────────────────────────────────────┘ * * Macro saves the current file with name "CurrentFileName.Mos_Day". * For example, @F2 saves it as FILE25.214 when date and time are * Thu 02-14-1991 10:25:00. Use this macro Jan-Sept. * @F2 Macrobegin unmarkblock * Begin no marked block insertline begline * Insert line insertdate * Get date & time to condense delltword delltword * Delete spaces and year backspace * Delete - CursorLeft CursorLeft * Keep day backspace * Delete - CursorLeft * Keep last digit of month, backspace * Delete first digit of month backspace * Delete - delltword delltword * Delete spaces & day name begline * CurrentFileName * Get CurrentFileName delltword * Delete extension cut * Get file name.num to scrap writeblock paste return * Save file name.num * * 26 bytes Wed 10-03-1990 19:24:02 * * Macro saves the current file with name "CurrentFileName.Mos_Day". * * For example, @F2 saves it as FILE25.119 when date and time are * * Sun 10-19-1990 10:25:00. Use this macro Oct-Dec. * * * @F2 Macrobegin * unmarkblock * Begin no marked block * insertline begline * Insert line * insertdate * Get date & time to condense * delltword delltword * Delete spaces and year * backspace * Delete - * CursorLeft CursorLeft * Keep day * backspace * Delete - * backspace * Delete last digit of month * CursorLeft * Keep first digit of month, * delltword delltword * Delete spaces & day name * begline * * CurrentFileName * Get CurrentFileName * delltword * Delete extension * cut * Get file name.num to scrap * writeblock paste return * Save file name.num * * * * 25 bytes Fri 10-19-1990 12:53:19 * * ┌──────────────────────────────────────────────┐ * │@(F3) Saves Read-Only files │ * └──────────────────────────────────────────────┘ * * This macro will save the currently loaded file if the file attribute * on the disk copy is set to Read-Only. QEdit currently will not save * files loaded as Read-Only. * * This macro is written to use either Dos ATTRIB, Gavin's ALTER, or * Norton's FA. To change from using Dos ATTRIB change the respective * lines in the macro and reconvert with QMAC. * * One word of caution: any file on the disk in the current directory * with same prefix as the loaded file will have it's read attribute * reset to read OFF regardless of the extension. Gavin's ALTER is the * fastest way to reset attributes but it also resets ALL the attributes, * including the archive bit, of ALL files in the directory with the same * prefix. * * To save a file loaded as Read-Only just press @F3: @F3 Macrobegin unmarkblock * Unmark blocks insertline * Insert blank line on top markcolumn * CurrentFileName markcolumn * Get CurrentFileName on line storescrbuff "1" return * Store currentfilname to buf/1 find "." return "LB" return * Find dot back in block jtrue IFEXT: * If dot found go to IFEXT: endline ".*" * Add ".*" if name has NO ext jump FULLEXT: * Go to FULLEXT IFEXT: * If name has extension then.. CursorRight DelToEol "*" * Add "*" after dot FULLEXT: * copy * Copy "prefix.*" to scrap delline * Delline changefilename "$" return * Change CurrentFileName to $ dos "ATTRIB -R " * Clear Read Only attribute... paste return return * w/ Dos ATTRIB * dos "ALTER " * * paste "/RE" return return * w/ Gavin ALTER (Fastest) * dos "FA " * * paste "/R-" return return * w/ Norton FA insertline * Insert blank line in $ unmarkblock * Unmark all blocks getscrbuff "1" return * Get origfilename on line copy * Copy to scrap delline * Delline changefilename paste return * Change $ to origfilename return * Gives OK to overlay origfile savefile * Save origfile * * 80 bytes Wed 02-13-1991 16:14:00 * *┌──────────────────────────────────────┐ *│ @(F4) Execute Dos Commands From List │ *└──────────────────────────────────────┘ * To run, just press @F4 and move cursor line to the desired command * to execute. Then press <enter> to execute command and return to file * you editing. Modify DOS.LIST as you need. * * Run Syntax: [command] <enter> @F4 Macrobegin unmarkblock * EditFile "DOS.LST" return * Load command list pause * Select command copy * Get command to scrap quit * Quit command list DOS paste return * Execute Dos command * * 27 bytes Mon 02-11-1991 11:11:56 * *┌──────────────────────────────────────────────────────────┐ *│ @(F5) Execute Dos Commands From List With CurrentFileName│ *└──────────────────────────────────────────────────────────┘ * * To run, just press @F5 and move cursor line to the desired command * to execute. Then press <enter> to execute command. Press <enter> again * to return to file you were editing. Dos executes the command as if it * were run at the command line followed by the CurrentFileName, then * <enter>. Modify the DOS.LIST as you need. * I recall getting this macro from the SemWare BBS but do not recall * the author. If anyone knows, please let me know so I can give proper * credit. It's quite a useful and simple macro. * * Run Syntax: [command] CurrentFileName <enter> * @F5 Macrobegin unmarkblock * EditFile "DOS.LST" return * Load command list pause * Select command copy * Get command to scrap quit * Quit command list DOS paste " " CurrentFileName * Execute command w/ * CurrentFileName return * * * 30 bytes Sat 09-15-1990 09:24:37 * * ---------------------------------------------------------------------- * @(F6) Makes a DIR List of Filenames in Conventional "8.3" Format, * NO SPACES, with Date and Time, like this: * FILE25.QM 64795 6-23-91 4:12a * ---------------------------------------------------------------------- * See RINGxx.QM for this macro. * * ┌─────────────────────────────────────────────────────────┐ * │@(F7) READ macfile & LOAD it's txtfile from txtfile list │ * └─────────────────────────────────────────────────────────┘ * * @F7 enables a file to be selected for editing and it's macfile read * from a prepared list of txtfiles. The list of txtfiles (-qm.lst) * included with FILE25 is a list of the latest macros in this series, * but it can be altered to meet your needs by adding [drive:]\[path\] * both in front of each file in the list and also in the second line of * the macro, and adding or deleting any files you choose to/from this * list. The modified macro can be put in your QCONFIG.DAT file and * macros can be loaded and read while in any directory. To run, press * @F7, cursor down to the desired file, and press <enter>. Remember, * txtfiles must have the extension "QM" and the macfiles must have the * extension "MAC". * @F7 Macrobegin EditFile "-qm.lst" return * Edit txtfile list pause * Pause to select macro to read endline * Go to end of file name backspace backspace * and remove it's extension copy quit * Copy file name to scrap EditFile paste "qm" return * Load selected macro txtfile macroread paste "mac" return * and read it's macfile * * 42 bytes Thu 10-18-1990 12:23:41 * *┌───────────────────────────────────────────────────────────┐ *│ @(F8) READ macfile from macfile list, txtfile not loaded │ *└───────────────────────────────────────────────────────────┘ * * @F8 enables a macfile to be selected and read from a prepared list * of macfiles. The list of macfiles (-mac.lst) included with FILE25 is * a list of the latest macros in this series, but it can be altered to * meet your needs by adding [drive:]\[path\] in front of each file in * the list and also in the second line of the macro, and adding or * deleting any files you choose to/from this list. The modified macro * can be put in your QCONFIG.DAT file and macros can be read while in * any directory. To run, press @F8, cursor down to the desired file, * and press <enter>. Remember, macfiles must have the extension "MAC". * @F8 Macrobegin EditFile "-mac.lst" return * Edit macfile list pause * Pause to select macro to read endline * Go to end of macfile name backspace backspace backspace * and remove it's extension copy quit * Copy macro name to scrap macroread paste "mac" return * Read it's macfile only * * 38 bytes Thu 10-18-1990 12:23:50 * *------------------------------------------------------------ * #(F3_) Spell check current file WITH backup with ShareSpell, * QCONFIG.DAT backups ON or OFF, SS makes a backup file. *------------------------------------------------------------ * #F3 Macrobegin * SaveFile * Save file Dos "SS " CurrentFileName Return Return * Spell Check EditFile CurrentFileName Return * Set EditFile prompt NewFile Return * Load Spell checked file * * 20 bytes Wed 02-13-1991 12:32:29 * *----------------------------------------------------------------- * #(F4_) Spell check WITHOUT backup, QCONFIG.DAT backups ON or OFF *----------------------------------------------------------------- * This macro does not save a backup file no matter how QCONFIG.DAT is * configured for backups. If a beep is heard, the file being spell * checked does not have an extension (no dot was found). * #F4 Macrobegin Unmarkblock Insertline Begline * Insert temp line with Dropanchor CurrentFileName * CurrentFileName marked Find "." Return "LB" Return * Find dot backwards in name DelToEol ".bak" * Add .bak Cut Savefile * Cut name.bak to scrap/save it DOS "SS " CurrentFileName Return Return * ShareSpell spell check DOS "DEL " Paste Return Return * Delete name.bak EditFile CurrentFileName Return * Set EditFile prompt NewFile Return * Load spell checked file * * 56 bytes Sun 02-17-1991 14:02:28 * *--------------------------------------------------------- * #(F5_) Saves file WITHOUT backup, QCONFIG.DAT backups ON *--------------------------------------------------------- * Saves files without making a backup file if QCONFIG.DAT * is configured "Yes" to "Do you want backups saved?". * #F5 Macrobegin Togglebakups SaveFile Togglebakups * * 7 bytes Tue 02-12-1991 03:39:44 * *---------------------------------------------------------------- * #(F6_) Saves file WITHOUT backup, QCONFIG.DAT backups ON or OFF *---------------------------------------------------------------- * This is an alternate version of #F5 which does not save a backup * file no matter how QCONFIG.DAT is configured for backups. If a * beep is heard, the file being saved does not have an extension * (no dot was found). * #F6 Macrobegin Unmarkblock Insertline Begline * Insert temp line with Dropanchor CurrentFileName * CurrentFileName marked Find "." Return "LB" Return * Find dot backwards DelToEol ".bak" * Add .bak Cut Savefile * Cut name.bak to scrap/save file DOS "del " Paste Return Return * Delete name.bak * * 41 bytes Sun 02-17-1991 14:30:32 * Here's an alternate version of #F6 that saves a file without a * backup no matter how QCONFFIG.DAT is configured. Be careful that no * line feed or carriage return characters are in the file or the saved * file will be formatted with these characters removed. * * #F6 Macrobegin * * unmarkblock killfile * Kill disk copy so writeblock * * works without prompts * writeblock currentfilename return * Save file as block * * 8 bytes Thu 02-14-1991 12:28:01 * *-------------------------------------- * #(F7_) Deletes CurrentFileName Backup *-------------------------------------- * #F7 Macrobegin Unmarkblock Insertline Begline * Insert temp line with Dropanchor CurrentFileName * CurrentFileName marked Find "." Return "LB" Return * Find dot backwards DelToEol ".bak" * Add .bak Cut * Cut name.bak to scrap DOS "DEL " Paste Return Return * Delete name.bak * DOS "DX " Paste "//DEL" * Alternate verify delete * Return Return * with Directory Extender DX * * 40 bytes Sun 02-17-1991 14:10:19 * *---------------------------------- * #(F8_) Edit CurrentFileName Backup *---------------------------------- * #F8 Macrobegin Unmarkblock Insertline Begline * Insert temp line with Dropanchor CurrentFileName * CurrentFileName marked Find "." Return "LB" Return * Find dot backwards DelToEol ".bak" * Add .bak Cut * Cut name.bak to scrap EditFile Paste Return * Load name.bak * * 31 bytes Sun 02-17-1991 14:10:06 * *--------------------------------------------------- * @(PgUp), Page Up by paragraphs, modified "Page Up" *--------------------------------------------------- * * This macro does a modified page UP with the cursor at the top of the * screen at the beginning of a paragraph, the first paragraph on the * screen being the last parapgraph which might not have been fully * visible on the top of previous screen. This is handy for getting to * and from paragraphs during editing or viewing. * 177 MacroBegin PageUp PrevPara BegLine Maketopofscreen * * 8 bytes Thu 02-21-1991 14:23:43 *----------------------------------------------------- * @(PgDn), Page Down by paragraphs, modified "Page Dn" *---------------------------------------------------- * * This macro does a modified page DOWN with the cursor at the top of * the screen on the end of the last paragraph which was not fully * visible on the previous screen. This is handy for getting to and from * paragraphs during editing or viewing. * 176 MacroBegin PageDown EndPara BegLine Maketopofscreen * * 8 bytes Thu 02-21-1991 19:11:14 * *┌───────────────────────────────────────────────────────────────────┐ *│@(h) Finds first word on cursor line marked in document below │ *└───────────────────────────────────────────────────────────────────┘ * * @h macro has 2 steps: * * 1. Press @ and h at the same time. An ! shows at the * end of the top line. Cursor down to desired line in Index. * * 2. Press Enter. The macro first erases the !, and * then finds the first word on the cursor line in the document * below marked with (...). * * See BOOKxx.QM for more details. * @h Macrobegin unmarkblock * Unmark any marked blocks begfile endline * Go to file begin endline "!" * Put ! at endline begline find "!" return return begline * Highlight ! pause * Pause for Index selection wordright markword * Mark first word on line copy * Copy word to scrap buffer begfile * Begfile find "!" return return delch * Find & delete ! endpara * Go to end of Index makectrofscreen * Cursor line center of window find "(" paste ")" return "I" return * Find first marked word in doc jfalse NOMARK: begline * If mark found go to begline jump END: NOMARK: begfile * If no mark found go to begfile END: * * 47 bytes Fri 09-14-1990 14:06:26 * * ---------------------------------------------------------------------- * @(f) Execute DOS command for programs not requring full path name * ---------------------------------------------------------------------- * @f Macrobegin Unmarkblock Insertline * Insert temp line CurrentFileName * with CurrentFileName MarkCharacter * Begin mark Find "\" Return "B" Return * Find \ backwards CursorRight Cut * Cut filename to scrap Delline * Delete temp line Dos Pause " " Paste Return * Pause for DOS command * * 24 bytes Tue 04-23-1991 11:58:35 * * ---------------------------------------------------------------------- * @(o) Alternate ChangeFileName, currentfilename in prompt box for edit * ---------------------------------------------------------------------- * * This macro puts the currentfilename in the prompt box for editing. * @o MacroBegin ChangeFilename DelLine CurrentFilename * * 7 bytes Wed 04-03-1991 16:25:01 * *┌──────────────────────────────────┐ *│@(q) QUITs all Files in Ring │ *└──────────────────────────────────┘ * @q Macrobegin LOOP: quit jump LOOP: * * 8 bytes Sat 09-29-1990 00:03:46 * * ----------------------------------------------- * ^(w_) Scroll UP, cursor bar stays fixed * ----------------------------------------------- * ^w macrobegin scrollup cursorup * 6 bytes Fri 02-22-1991 17:01:18 * ----------------------------------------------- * ^(z_) Scroll DOWN, cursor bar stays fixed * ----------------------------------------------- * ^z macrobegin scrolldown cursordown * 6 bytes Fri 02-22-1991 17:01:29 * These two macros, @w and @z, were originally written by Karl Brendel * as below. I have modified them both slightly so that the cursor bar * remains fixed in each window while scrolling. Corresponding lines * will always be adjacent across the cursor bar (not the status line), * so it's easy to spot things that don't match up between the files. * * Interestingly enough, if no window is open, both @w and @z will * scroll similar to ^w and ^z macros above except 2 lines will be * scrolled instead of one. For this reason I have replaced ScrollUp and * ScrollDn in QCONFIG.DAT with macros @w and @z, 2 macros doing 4 * tasks - and also less keystrokes for scrolling! * * ------------------------------------------------ * @(w) Scroll two windows up in sync * ------------------------------------------------ @w macrobegin scrollup cursorup nextwindow scrollup cursorup prevwindow * 10 bytes Fri 02-22-1991 16:52:31 * * ------------------------------------------------ * @(z) Scroll two windows down in sync * ------------------------------------------------ @z macrobegin scrolldown cursordown nextwindow scrolldown cursordown prevwindow * 10 bytes F=i 02-22-1991 16:52:39 * ============================================================================== * Date: 08-18-90 (21:28) Number: 2724 Semware - Qedit Suppor * To: JACK LAUFER Refer#: NONE * From: KARL BRENDEL Read: YES * Subj: Qedit Enhancements Conf: (21) ILink * ------------------------------------------------------------------------ * JL>I've been a registered Qedit user for some time now and very much * JL>appreciate the quality of the program and your support. One * JL>enhancement which I would very much like to see -- and one of only a * JL>few Brief editor features that I sorely miss -- is the ability split * JL>windows vertically. This would be very helpful when working with * JL>(e.g., comparing) mailing lists, simple program code, etc. * * I understand your desire, Jack. Much of what you want to do, however, * can be helped by using these or similar macro assignments: * * @w macrobegin scrollup nextwindow scrollup prevwindow * * @z macrobegin scrolldown nextwindow scrolldown prevwindow * * These two macros scroll adjacent horizontal windows up or down in * sync. Thus, you can open two windows, load your two files of * interest, one in each window, "manually" bring two corresponding * lines to the middle of the screen (or top/bottom of the two windows), * then use these macros to scroll up and down within the two files * together. Since corresponding lines will always be adjacent across * the status line, it's easy to spot things that don't match up between * the files. * * Is this clear? If not, assign these macros, bring up QEdit on one * file, open a second window, bring up the second file, then just play * with the macros for a while. * --- * * InterLink: The Right Place(tm) * Atlanta, GA * (404) 476-2607 * (Version) History: * * 1.0 - Initial version named SORT10.ZIP * 1.1 - changed and shortened Alt-f3 to keep extraneous files * from ring * - Changed file names from SORTxx.xxx to FILExx.xxx. * 1.2 - DX Directory Extended not included to save download time. * 1.2a- Changed other file names in series, this is an update. * 1.3 - Added @4 to load files from PickList, wild cards OK. * - Changed j:$ to c:! in macros and batch file. * - Changed .QL and .LST files. * - Changed key assignments from alternate_functions * to alternate_numbers. * - All macros shortened. * 1.4 - FILE-DX.BAT was not saving "echo .." initialization; corrected. * - Modified macros @1-4 so Insert does NOT have to be ON. * - Added AltWordSet to @1-4 to get all files. * - Removed need to use scratch buffers in @3. * - Added @5 to LOAD a file whose name is at the cursor. * - Added @6 to execute Dos Commands From List. * - Added @7 to EXECUTE DOS commands from List * with CurrentFileName. * - Added @8 to read macfile of txtfile that is loaded. * - Added ^3 to save Read-Only files. * - Added ^1 and ^2 to save files with date-time name. * - Modified @1-4 and batch files to exclude directories in file * list and PickList. * - Removed check to quit c:! if already loaded in @1-4. * - Changed @4 to use only PICK.BAT. * 1.5 - Added @9 to select file to edit from RingList * - Added @0 to select file to edit from RingList if new files have * been loaded since making last RingList * - Added @h to FIND items or macros in Index. * - Added @q to QUIT all files in ring. * 1.6 - Added @6 to re-LOAD current file from disk copy. * - Modified @9 and @0 to be faster and shorter. * - Modified @F2 for correct extension Oct-Dec. * - Changed @F1 thru @F5 key assignments. * 1.7 - Added @F6 to turn "DIR" command into a "8.3" list of filenames, * written by T. Farley of SemWare. * - Added @F7 and @F8 to read and load txtfiles and macfiles from * a prepared list of active txtfiles and macfiles. * - Modified @F2 for Oct-Dec and added alternate version * for Jan-Sept. * - DOS.LST was inadvertantly left out of versions since 1.4. * It is now included. * 1.8 - Modified @F6 for DOS Ver 3.3, other Dos versions not tested. * - Modified documentation and added START.BAT. * - Added @z to load all files in "Ring" buffer. * - Modified @F2 for Jan-Sep and added alternate version * for Oct-Dec. * 1.9 - Added @F to execute programs requiring filename without full * path name. * - Corrected @h Index Use instructions. * - Shortened @F3 2 bytes. * 2.0 - Added #F3 & #F4 to spell check with ShareSpell. * - Added #F5 & #F6 to save files without making backups. * - Added #F7 & #F8 to delete and edit CurrentFileName Backup. * - Modified @F1 to handle file names with no extension. * - Changed @F3 in "B" to "LB" to search for dot only in block. * - From @F4 removed second return to not pause after executing. * DOS command. * - Modified @F6 to handle multiple runs correctly. * - Changed $$$.TMP to C:! in @F6, shortened 16 bytes. * - Change @z key to @7. * 2.1 - Added @PgUp and @PgDn for modified "Page Up and Page Down". * - Added @w and @z to scroll two windows up/down in sync. * - Added ^w and ^z to scroll up/down so cursor bar stays fixed. * - Removed unnecessary lines and shortened #F4,6,7,8. * 2.2 - Changed DelLine 6 ot 4 in @f6 to eliminate deletion of * top 2 files in DIR list. * 2.3 - Added ^1 and ^2 to position cursor in column at top of * paragraph. * - Added ^3 to position cursor in column at bottom of paragraph * - Added ^4 to put colon in front of "rem" lines for faster * batch file operation. * 2.4 - Added @o Alternate ChangeFileName, CurrentFileName in prompt * box. * - Changed control_numeric keys to control_function keys. * old new * ^1 ^F1 * ^2 ^F2 * ^3 ^F3 * - Changed @f to pause for DOS command * - Moved ^4 to COMTxx. * 2.4a- Corrected description of @F7 and @F8. * 2.5 - Changed file name in @7, @9 and @0 from ! to NUL - faster. * - Made @F6 faster. * - Moved @F6 DIR list macro to RINGxx.QM. * 2.5a- Minor documentation changes. * *